 <html>
 <head>
 <title>i_tpsa.f90</title>                                                      
                                                                                
                                           
 </head>
 <body>
MODULE TPSA <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
  USE DEFINITION <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               
  USE FILE_HANDLER <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             
  IMPLICIT NONE <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
  PUBLIC <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
  INTEGER,PRIVATE::NDEL ,ND2PAR,ND2PART,ND2PARTT <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                               
  INTEGER,PRIVATE,DIMENSION(LNV)::JFIL,JFILT <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
  PRIVATE EQUAL,DAABSEQUAL,DEQUALDACON ,EQUALDACON ,IEQUALDACON <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                
  PRIVATE POW,POWR,POWR8,DLOGT, GETORDER,CUTORDER,GETCHAR,GETINT <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
  PRIVATE GETDIFF,GETDATRA  ,MUL,DMULSC,DSCMUL <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
  PRIVATE MULSC,SCMUL,IMULSC,ISCMUL <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                            
  PRIVATE DIV,DDIVSC,DSCDIV,DIVSC,SCDIV,IDIVSC,ISCDIV <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
  PRIVATE UNARYADD,ADD,DADDSC,DSCADD,ADDSC,SCADD,IADDSC,ISCADD <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
  PRIVATE UNARYSUB,SUBS,DSUBSC,DSCSUB,SUBSC,SCSUB,ISUBSC,ISCSUB <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                
  PRIVATE ALLOCDA,KILLDA,A_OPT,K_OPT <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                           
  PRIVATE DEXPT,DCOST,DSINT,DSQRTT,DTANT,DATANHT,DTANHT <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
  PRIVATE GETCHARND2,GETINTND2,DPUTCHAR,DPUTINT, FILTER,CHECK_J,DSINHT,DCOSHT <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
  PRIVATE GETINTND2T <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           
  PRIVATE DEQUAL,REQUAL,VARF,VARF001 <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                           
  PRIVATE PBBRA,FULL_ABST,ASSTAYLOR,GETCHARND2S,GETINTND2S,GETINTK <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
  PRIVATE SHIFTDA,SHIFT000 <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
  PRIVATE FILL_UNI_R <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
  PRIVATE NO,ND,ND2,NP,NDPT,NV <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
  INTEGER NP,NO,ND,ND2,NDPT,NV <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
  INTEGER, TARGET :: NSPIN=0 <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
  INTEGER, TARGET :: SPIN_POS=0 <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
  PRIVATE OLD <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
  LOGICAL(LP) OLD <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              
  LOGICAL(LP),TARGET  :: REAL_WARNING =.TRUE. <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
  PRIVATE NULL_IT,SET_UP,DE_SET_UP,LINE_L,RING_L,KILL_DALEVEL,DEALLOC_DASCRATCH,SET_UP_LEVEL <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
  PRIVATE INSERT_DA,APPEND_DA,GETINTEGRATE <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
  TYPE(DALEVEL) SCRATCHDA(NDUMT) <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                               
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="="></a>
<font color="#0000FF">  INTERFACE ASSIGNMENT (=) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#EQUAL">     MODULE PROCEDURE EQUAL</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DEQUAL">     MODULE PROCEDURE DEQUAL</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#REQUAL">     MODULE PROCEDURE REQUAL</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DEQUALDACON">     MODULE PROCEDURE DEQUALDACON</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#EQUALDACON">     MODULE PROCEDURE EQUALDACON</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#IEQUALDACON">     MODULE PROCEDURE IEQUALDACON</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#FILL_UNI_R">     MODULE PROCEDURE FILL_UNI_R</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#NULL_UNI">     MODULE PROCEDURE NULL_UNI</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#FILL_UNI">     MODULE PROCEDURE FILL_UNI</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#REFILL_UNI">     MODULE PROCEDURE REFILL_UNI</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                   
<font color="#0000FF">  END  INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="PRINT"></a>
<font color="#0000FF">  INTERFACE PRINT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#PRINTUNITAYLOR">     MODULE PROCEDURE PRINTUNITAYLOR</a></font> <br>                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
        <table border="4" cellspacing="1" bordercolor="#000000" id="AutoNumber2" width="400" height="135">                                                                                                                                                                                                                                                                                                                                                                                                          
          <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">+</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
             <font face="Times New Roman" size="1">Taylor</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
             Real(dp)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                            
             <td width="78" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="1">Real(sp)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                      
             <td width="56" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="1">Integer</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                       
           </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
           <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
             <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
             <font face="Times New Roman" size="1">Taylor</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                        
             <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
             <span style="text-transform: uppercase; font-weight:700">                                                                                                                                                                                                                                                                                                                                                                                                                                              
             <font face="Times New Roman" size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
             <a href="i_tpsa.htm#ADD" style="text-decoration: none">add</a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                      
             <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                             
            <span style="text-transform: uppercase; font-weight:700">                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <font face="Times New Roman" size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#DADDSC" style="text-decoration: none">daddsc</a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                 
            <td width="78" height="20" align="center"><b>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
            <font size="1" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#ADDSC" style="text-decoration: none">ADDSC</a></font></b></td>                                                                                                                                                                                                                                                                                                                                                                                                                      
            <td width="56" height="20" align="center"><b>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
            <font size="1" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#IADDSC" style="text-decoration: none">                                                                                                                                                                                                                                                                                                                                                                                                                                              
            IADDSC</a></font></b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                              
          </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
          <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            Real(dp)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                             
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase; font-weight:700">                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <font face="Times New Roman" size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#DSCADD" style="text-decoration: none">dscadd</a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                 
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="78" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="56" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
          </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
          <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">Real(sp)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                       
            <td width="77" height="20" align="center"><b>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
            <font size="1" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#SCADD" style="text-decoration: none">SCADD</a></font></b></td>                                                                                                                                                                                                                                                                                                                                                                                                                      
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="78" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="56" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
          </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
          <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">Integer</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                        
            <td width="77" height="20" align="center"><b>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
            <font size="1" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#ISCADD" style="text-decoration: none">                                                                                                                                                                                                                                                                                                                                                                                                                                              
            ISCADD</a></font></b></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="78" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="56" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
          </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
         </table>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
 <a name="+"></a>
<font color="#0000FF">  INTERFACE OPERATOR (+) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#UNARYADD">     MODULE PROCEDURE UNARYADD</a></font><font color="#FF0000"> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &#8594; This is a unary operation </font><br>                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ADD">     MODULE PROCEDURE ADD</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DADDSC">     MODULE PROCEDURE DADDSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSCADD">     MODULE PROCEDURE DSCADD</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ADDSC">     MODULE PROCEDURE ADDSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#SCADD">     MODULE PROCEDURE SCADD</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#IADDSC">     MODULE PROCEDURE IADDSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ISCADD">     MODULE PROCEDURE ISCADD</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
        <table border="4" cellspacing="1" bordercolor="#000000" id="AutoNumber1" width="400" height="135">                                                                                                                                                                                                                                                                                                                                                                                                          
          <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">-</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">Taylor</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                         
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            Real(dp)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                             
            <td width="78" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">Real(sp)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                       
            <td width="56" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">Integer</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                        
          </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
          <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">Taylor</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                         
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#SUBS" style="text-decoration: none; font-weight: 700">SUBS</a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                   
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#DSUBSC" style="text-decoration: none; font-weight: 700">dSUBsc</a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                               
            <td width="78" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="1" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#SUBSC" style="text-decoration: none; font-weight: 700">SUBSC</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                        
            <td width="56" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="1" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#ISUBSC" style="text-decoration: none; font-weight: 700">ISUBSC</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                      
          </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
          <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            Real(dp)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                             
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#DSCSUB" style="text-decoration: none; font-weight: 700">dscSUB</a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                               
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="78" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="56" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
          </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
          <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">Real(sp)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                       
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="1" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#SCSUB" style="text-decoration: none; font-weight: 700">                                                                                                                                                                                                                                                                                                                                                                                                                             
            SCSUB</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="78" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="56" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
          </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
          <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">Integer</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                        
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="1" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#ISCSUB" style="text-decoration: none; font-weight: 700">                                                                                                                                                                                                                                                                                                                                                                                                                            
            ISCSUB</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="78" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="56" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
          </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
         </table>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
 <a name="-"></a>
<font color="#0000FF">  INTERFACE OPERATOR (-) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#UNARYSUB">     MODULE PROCEDURE UNARYSUB</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#SUBS">     MODULE PROCEDURE SUBS</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSUBSC">     MODULE PROCEDURE DSUBSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSCSUB">     MODULE PROCEDURE DSCSUB</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#SUBSC">     MODULE PROCEDURE SUBSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#SCSUB">     MODULE PROCEDURE SCSUB</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ISUBSC">     MODULE PROCEDURE ISUBSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ISCSUB">     MODULE PROCEDURE ISCSUB</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
        <table border="4" cellspacing="1" bordercolor="#000000" id="AutoNumber1" width="400" height="134">                                                                                                                                                                                                                                                                                                                                                                                                          
          <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">*</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">Taylor</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                         
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            Real(dp)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                             
            <td width="78" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">Real(sp)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                       
            <td width="56" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">Integer</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                        
          </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
          <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">Taylor</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                         
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#MUL" style="text-decoration: none; font-weight:700">MUL</a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                      
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#DMULSC" style="text-decoration: none; font-weight:700">dMULsc</a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                
            <td width="78" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="1" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#MULSC" style="text-decoration: none; font-weight:700">MULSC</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                         
            <td width="56" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="1" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#IMULSC" style="text-decoration: none; font-weight:700">IMULSC</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                       
          </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
          <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
            <td width="77" height="19" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            Real(dp)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                             
            <td width="77" height="19" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#DSCMUL" style="text-decoration: none; font-weight:700">dscMUL</a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                
            <td width="77" height="19" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="78" height="19" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="56" height="19" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
          </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
          <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">Real(sp)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                       
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="1" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#SCMUL" style="text-decoration: none; font-weight:700">                                                                                                                                                                                                                                                                                                                                                                                                                              
            SCMUL</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="78" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="56" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
          </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
          <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">Integer</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                        
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="1" face="Times New Roman">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#ISCMUL" style="text-decoration: none; font-weight:700">                                                                                                                                                                                                                                                                                                                                                                                                                             
            ISCMUL</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <td width="77" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="78" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="56" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
          </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
         </table>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
 <a name="*"></a>
<font color="#0000FF">  INTERFACE OPERATOR (*) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#MUL">     MODULE PROCEDURE MUL</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DMULSC">     MODULE PROCEDURE DMULSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSCMUL">     MODULE PROCEDURE DSCMUL</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#MULSC">     MODULE PROCEDURE MULSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#SCMUL">     MODULE PROCEDURE SCMUL</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#IMULSC">     MODULE PROCEDURE IMULSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ISCMUL">     MODULE PROCEDURE ISCMUL</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
        <table border="4" cellspacing="1" bordercolor="#000000" id="AutoNumber1" width="400" height="135">                                                                                                                                                                                                                                                                                                                                                                                                          
          <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
            <td width="0" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">/</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                              
            <td width="0" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">Taylor</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                         
            <td width="0" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            Real(dp)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                             
            <td width="0" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">Real(sp)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                       
            <td width="0" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">Integer</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                        
          </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
          <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
            <td width="0" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">Taylor</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                         
            <td width="0" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#DIV" style="text-decoration: none; font-weight: 700">div</a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                     
            <td width="0" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#DDIVSC" style="text-decoration: none; font-weight: 700">dDIVsc</a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                               
            <td width="0" height="20" align="center"><font size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <a href="i_tpsa.htm#DIVSC" style="text-decoration: none; font-weight: 700">DIVSC</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                        
            <td width="0" height="20" align="center"><font size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <a href="i_tpsa.htm#IDIVSC" style="text-decoration: none; font-weight: 700">                                                                                                                                                                                                                                                                                                                                                                                                                            
            IDIVSC</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
          </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
          <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
            <td width="0" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            Real(dp)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                             
            <td width="0" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <a href="i_tpsa.htm#DSCDIV" style="text-decoration: none; font-weight: 700">dscDIV</a></font></span></td>                                                                                                                                                                                                                                                                                                                                                                                               
            <td width="0" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="0" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="0" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
          </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
          <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
            <td width="0" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">Real(sp)</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                       
            <td width="0" height="20" align="center"><font size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <a href="i_tpsa.htm#SCDIV" style="text-decoration: none; font-weight: 700">                                                                                                                                                                                                                                                                                                                                                                                                                             
            SCDIV</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
            <td width="0" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="0" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="0" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
          </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
          <tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      
            <td width="0" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <span style="text-transform: uppercase">                                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <font face="Times New Roman" size="1">Integer</font></span></td>                                                                                                                                                                                                                                                                                                                                                                                                                                        
            <td width="0" height="20" align="center"><font size="1">                                                                                                                                                                                                                                                                                                                                                                                                                                                
            <a href="i_tpsa.htm#ISCDIV" style="text-decoration: none; font-weight: 700">                                                                                                                                                                                                                                                                                                                                                                                                                            
            ISCDIV</a></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
            <td width="0" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="0" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
            <td width="0" height="20" align="center">                                                                                                                                                                                                                                                                                                                                                                                                                                                               
            <font size="2" face="Times New Roman"><b>F90</b></font></td>                                                                                                                                                                                                                                                                                                                                                                                                                                            
          </tr>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
        </table>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
 <a name="/"></a>
<font color="#0000FF">  INTERFACE OPERATOR (/) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DIV">     MODULE PROCEDURE DIV</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DDIVSC">     MODULE PROCEDURE DDIVSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSCDIV">     MODULE PROCEDURE DSCDIV</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DIVSC">     MODULE PROCEDURE DIVSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#SCDIV">     MODULE PROCEDURE SCDIV</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#IDIVSC">     MODULE PROCEDURE IDIVSC</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ISCDIV">     MODULE PROCEDURE ISCDIV</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="**"></a>
<font color="#0000FF">  INTERFACE OPERATOR (**) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#POW">     MODULE PROCEDURE POW</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#POWR">     MODULE PROCEDURE POWR</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#POWR8">     MODULE PROCEDURE POWR8</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="MONO"></a>
<font color="#0000FF">  INTERFACE OPERATOR (.MONO.) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DPUTINT0">     MODULE PROCEDURE DPUTINT0</a></font><font color="#009933"> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &#8594; &nbsp; single integer </font><br>                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DPUTINT">     MODULE PROCEDURE DPUTINT</a></font><font color="#009933"> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &#8594; &nbsp; Accepts J(nv) </font><br>                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DPUTCHAR">     MODULE PROCEDURE DPUTCHAR</a></font><font color="#009933"> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &#8594; &nbsp; Accepts String such as '12' </font><br>                                                                                                                                                                                                                                                            
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="VAR"></a>
<font color="#0000FF">  INTERFACE OPERATOR (.VAR.) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#VARF">     MODULE PROCEDURE VARF</a></font><font color="#009933"> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &#8594; &nbsp; replaces var (overloads DAVAR) </font><br>                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#VARF001">     MODULE PROCEDURE VARF001</a></font><font color="#009933"> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &#8594; replaces var001 </font><br>                                                                                                                                                                                                                                                                                 
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="D"></a>
<font color="#0000FF">  INTERFACE OPERATOR (.D.) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#GETDIFF">     MODULE PROCEDURE GETDIFF</a></font><font color="#009933"> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &#8594; takes derivatives </font><br>                                                                                                                                                                                                                                                                               
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="I"></a>
<font color="#0000FF">  INTERFACE OPERATOR (.I.) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#GETINTEGRATE">     MODULE PROCEDURE GETINTEGRATE</a></font><font color="#009933"> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &#8594; takes anti-derivatives </font><br>                                                                                                                                                                                                                                                                
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SUB"></a>
<font color="#0000FF">  INTERFACE OPERATOR (.SUB.) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#GETORDER">     MODULE PROCEDURE GETORDER</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#GETCHAR">     MODULE PROCEDURE GETCHAR</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#GETINT">     MODULE PROCEDURE GETINT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="PAR"></a>
<font color="#0000FF">  INTERFACE OPERATOR (.PAR.) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#GETCHARND2">     MODULE PROCEDURE GETCHARND2</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#GETINTND2">     MODULE PROCEDURE GETINTND2</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                     
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="PART"></a>
<font color="#0000FF">  INTERFACE OPERATOR (.PART.) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#GETINTND2T">     MODULE PROCEDURE GETINTND2T</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                   
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="<="></a>
<font color="#0000FF">  INTERFACE OPERATOR (<=) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#GETCHARND2S">     MODULE PROCEDURE GETCHARND2S</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#GETINTND2S">     MODULE PROCEDURE GETINTND2S</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#GETINTK">     MODULE PROCEDURE GETINTK</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                         
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CUT"></a>
<font color="#0000FF">  INTERFACE OPERATOR (.CUT.) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CUTORDER">     MODULE PROCEDURE CUTORDER</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="K"></a>
<font color="#0000FF">  INTERFACE OPERATOR (.K.) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#GETDATRA">     MODULE PROCEDURE GETDATRA</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="PB"></a>
<font color="#0000FF">  INTERFACE OPERATOR (.PB.) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#PBBRA">     MODULE PROCEDURE PBBRA</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ABS"></a>
<font color="#0000FF">  INTERFACE ABS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DAABSEQUAL">     MODULE PROCEDURE DAABSEQUAL</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                   
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DABS"></a>
<font color="#0000FF">  INTERFACE DABS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DAABSEQUAL">     MODULE PROCEDURE DAABSEQUAL</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                   
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="EXP"></a>
<font color="#0000FF">  INTERFACE EXP </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DEXPT">     MODULE PROCEDURE DEXPT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DEXP"></a>
<font color="#0000FF">  INTERFACE DEXP </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DEXPT">     MODULE PROCEDURE DEXPT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="CEXP"></a>
<font color="#0000FF">  INTERFACE CEXP </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DEXPT">     MODULE PROCEDURE DEXPT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="CDEXP"></a>
<font color="#0000FF">  INTERFACE CDEXP </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DEXPT">     MODULE PROCEDURE DEXPT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="COS"></a>
<font color="#0000FF">  INTERFACE COS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DCOST">     MODULE PROCEDURE DCOST</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="CDCOS"></a>
<font color="#0000FF">  INTERFACE CDCOS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DCOST">     MODULE PROCEDURE DCOST</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DCOS"></a>
<font color="#0000FF">  INTERFACE DCOS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DCOST">     MODULE PROCEDURE DCOST</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="CCOS"></a>
<font color="#0000FF">  INTERFACE CCOS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DCOST">     MODULE PROCEDURE DCOST</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="COSH"></a>
<font color="#0000FF">  INTERFACE COSH </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DCOSHT">     MODULE PROCEDURE DCOSHT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DCOSH"></a>
<font color="#0000FF">  INTERFACE DCOSH </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DCOSHT">     MODULE PROCEDURE DCOSHT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SIN"></a>
<font color="#0000FF">  INTERFACE SIN </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSINT">     MODULE PROCEDURE DSINT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="CDSIN"></a>
<font color="#0000FF">  INTERFACE CDSIN </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSINT">     MODULE PROCEDURE DSINT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="CCSIN"></a>
<font color="#0000FF">  INTERFACE CCSIN </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSINT">     MODULE PROCEDURE DSINT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DSIN"></a>
<font color="#0000FF">  INTERFACE DSIN </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSINT">     MODULE PROCEDURE DSINT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SINH"></a>
<font color="#0000FF">  INTERFACE SINH </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSINHT">     MODULE PROCEDURE DSINHT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DSINH"></a>
<font color="#0000FF">  INTERFACE DSINH </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSINHT">     MODULE PROCEDURE DSINHT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="LOG"></a>
<font color="#0000FF">  INTERFACE LOG </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DLOGT">     MODULE PROCEDURE DLOGT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DLOG"></a>
<font color="#0000FF">  INTERFACE DLOG </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DLOGT">     MODULE PROCEDURE DLOGT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="CDLOG"></a>
<font color="#0000FF">  INTERFACE CDLOG </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DLOGT">     MODULE PROCEDURE DLOGT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="CLOG"></a>
<font color="#0000FF">  INTERFACE CLOG </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DLOGT">     MODULE PROCEDURE DLOGT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SQRT"></a>
<font color="#0000FF">  INTERFACE SQRT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSQRTT">     MODULE PROCEDURE DSQRTT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
 <a name="DSQRT"></a>
<font color="#0000FF">  INTERFACE DSQRT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DSQRTT">     MODULE PROCEDURE DSQRTT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ATANH"></a>
<font color="#0000FF">  INTERFACE ATANH </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DATANHT">     MODULE PROCEDURE DATANHT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                         
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="TAN"></a>
<font color="#0000FF">  INTERFACE TAN </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DTANT">     MODULE PROCEDURE DTANT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="TANH"></a>
<font color="#0000FF">  INTERFACE TANH </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DTANHT">     MODULE PROCEDURE DTANHT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DTAN"></a>
<font color="#0000FF">  INTERFACE DTAN </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#DTANT">     MODULE PROCEDURE DTANT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="PEK"></a>
<font color="#0000FF">  INTERFACE PEK </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#PEK000">     MODULE PROCEDURE PEK000</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="POK"></a>
<font color="#0000FF">  INTERFACE POK </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#POK000">     MODULE PROCEDURE POK000</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SHIFTDA"></a>
<font color="#0000FF">  INTERFACE SHIFTDA </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#SHIFT000">     MODULE PROCEDURE SHIFT000</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CFU"></a>
<font color="#0000FF">  INTERFACE CFU </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#CFU000">     MODULE PROCEDURE CFU000</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="FULL_ABS"></a>
<font color="#0000FF">  INTERFACE FULL_ABS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#FULL_ABST">     MODULE PROCEDURE FULL_ABST</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                     
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ALLOC"></a>
<font color="#0000FF">  INTERFACE ALLOC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ALLOCDA">     MODULE PROCEDURE ALLOCDA</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#A_OPT">     MODULE PROCEDURE A_OPT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ALLOCDAS">     MODULE PROCEDURE ALLOCDAS</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ALLOC_U">     MODULE PROCEDURE ALLOC_U</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                         
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="KILL"></a>
<font color="#0000FF">  INTERFACE KILL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#KILLDA">     MODULE PROCEDURE KILLDA</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#KILLDAS">     MODULE PROCEDURE KILLDAS</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#K_OPT">     MODULE PROCEDURE K_OPT</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#KILL_UNI">     MODULE PROCEDURE KILL_UNI</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                       
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ALLOCTPSA"></a>
<font color="#0000FF">  INTERFACE ALLOCTPSA </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ALLOCDA">     MODULE PROCEDURE ALLOCDA</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                         
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="KILLTPSA"></a>
<font color="#0000FF">  INTERFACE KILLTPSA </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#KILLDA">     MODULE PROCEDURE KILLDA</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                           
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ASS"></a>
<font color="#0000FF">  INTERFACE ASS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#ASSTAYLOR">     MODULE PROCEDURE ASSTAYLOR</a></font> <br>                                                                                                                                                                                                                                                                                                                                                                     
<font color="#0000FF">  END INTERFACE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
CONTAINS <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="FLIPTAYLOR"></a>
<font color="#FF0000">  SUBROUTINE FLIPTAYLOR(XY,XYF,I) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE(TAYLOR), INTENT(INOUT) ::  XY,XYF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL FLIP_I(XY%I,XYF%I,I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font color="#FF0000">  END SUBROUTINE FLIPTAYLOR </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CHANGE_DEFAULT_TPSA"></a>
<font color="#FF0000">  SUBROUTINE  CHANGE_DEFAULT_TPSA(I) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT(IN) :: I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(LAST_TPSA==0) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF(I==1) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          DEFAULT_TPSA=.TRUE.</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          IF(I==1.AND.LINGYUN_YANG )WRITE(6,*) " DEFAULT TPSA IS CPP PACKAGE OF YANG"</font> <br>                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          CALL CHANGE_PACKAGE(I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ELSE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          DEFAULT_TPSA=.FALSE.</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          CALL CHANGE_PACKAGE(I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          IF(I==2.AND.(.NOT.LINGYUN_YANG) )WRITE(6,*) " DEFAULT TPSA IS FORTRAN PACKAGE OF BERZ (LBNL)"</font> <br>                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ELSE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       WRITE(6,*) " YOU COULD NOT CHANGE DEFAULT TPSA HERE "</font> <br>                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       WRITE(6,*) " ONLY PRIOR TO ANY CALL TO TPSA OR PTC OR AFTER A PTC_END "</font> <br>                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       STOP 666</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font color="#FF0000">  END   SUBROUTINE  CHANGE_DEFAULT_TPSA </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SET_IN_TPSA"></a>
<font color="#FF0000">  SUBROUTINE SET_IN_TPSA(NO1,ND1,ND21,NP1,NDPT1,NV1,LOG) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER NO1,ND1,ND21,NP1,NDPT1,NV1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOGICAL(LP) LOG</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    OLD=LOG</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NO=NO1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ND=ND1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ND2=ND21</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NP=NP1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NDPT=NDPT1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NV=NV1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font color="#FF0000">  END  SUBROUTINE SET_IN_TPSA </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="COUNT_TAYLOR"></a>
<font color="#FF0000">  SUBROUTINE COUNT_TAYLOR(N,NS,NE) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER N,NS,NE,I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL COUNT_DA(N)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NS=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,NDUMT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       NS=SCRATCHDA(I)%N+NS</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NE=N-NS</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font color="#FF0000">  END SUBROUTINE COUNT_TAYLOR </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="UNARYADD"></a>
<font color="#37A50B">  FUNCTION UNARYADD( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) UNARYADD</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(UNARYADD)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    UNARYADD=S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION UNARYADD </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="UNARYSUB"></a>
<font color="#37A50B">  FUNCTION UNARYSUB( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) UNARYSUB</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(UNARYSUB)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACMU(S1%I,-1.0_DP,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,UNARYSUB%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION UNARYSUB </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="MAKETREE"></a>
<font color="#FF0000">  SUBROUTINE  MAKETREE(S1,S2) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(IN)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(INOUT):: S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL MTREE((/S1%I/),1,(/S2%I/),1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                      
<font color="#FF0000">  END SUBROUTINE MAKETREE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ALLOCDA"></a>
<font color="#FF0000">  SUBROUTINE  ALLOCDA(S1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(INOUT)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(LAST_TPSA==0) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       W_P=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       W_P%NC=1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       W_P=(/" NO TPSA PACKAGE EVER INITIALIZED "/)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       W_P%FC='(1((1X,A72),/))'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S1%I=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ETALL1(S1%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font color="#FF0000">  END SUBROUTINE ALLOCDA </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="A_OPT"></a>
<font color="#FF0000">  SUBROUTINE  A_OPT(S1,S2,S3,S4,S5,S6,S7,S8,S9,S10) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(INOUT)::S1,S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),OPTIONAL, INTENT(INOUT):: S3,S4,S5,S6,S7,S8,S9,S10</font> <br>                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOCDA(S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOCDA(S2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S3)) CALL ALLOCDA(S3)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S4)) CALL ALLOCDA(S4)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S5)) CALL ALLOCDA(S5)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S6)) CALL ALLOCDA(S6)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S7)) CALL ALLOCDA(S7)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S8)) CALL ALLOCDA(S8)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S9)) CALL ALLOCDA(S9)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S10))CALL ALLOCDA(S10)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                      
<font color="#FF0000">  END SUBROUTINE A_OPT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="K_OPT"></a>
<font color="#FF0000">  SUBROUTINE  K_OPT(S1,S2,S3,S4,S5,S6,S7,S8,S9,S10) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(INOUT)::S1,S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),OPTIONAL, INTENT(INOUT):: S3,S4,S5,S6,S7,S8,S9,S10</font> <br>                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILLDA(S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILLDA(S2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S3)) CALL KILLDA(S3)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S4)) CALL KILLDA(S4)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S5)) CALL KILLDA(S5)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S6)) CALL KILLDA(S6)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S7)) CALL KILLDA(S7)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S8)) CALL KILLDA(S8)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S9)) CALL KILLDA(S9)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(S10))CALL KILLDA(S10)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font color="#FF0000">  END SUBROUTINE K_OPT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ALLOCDAS"></a>
<font color="#FF0000">  SUBROUTINE  ALLOCDAS(S1,K) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(INOUT),DIMENSION(:)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER,OPTIONAL,INTENT(IN)::K</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER J,I,N</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(K)) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       I=LBOUND(S1,DIM=1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       N=LBOUND(S1,DIM=1)+K-1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ELSE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       I=LBOUND(S1,DIM=1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       N=UBOUND(S1,DIM=1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO   J=I,N</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL ALLOCDA(S1(J))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE ALLOCDAS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="KILLDA"></a>
<font color="#FF0000">  SUBROUTINE  KILLDA(S1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(INOUT)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DADAL1(S1%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE KILLDA </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="KILLDAS"></a>
<font color="#FF0000">  SUBROUTINE  KILLDAS(S1,K) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(INOUT),DIMENSION(:)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER,OPTIONAL,INTENT(IN)::K</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER J,I,N</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(K)) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       I=LBOUND(S1,DIM=1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       N=LBOUND(S1,DIM=1)+K-1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ELSE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       I=LBOUND(S1,DIM=1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       N=UBOUND(S1,DIM=1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO   J=I,N</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL KILLDA(S1(J))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE KILLDAS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="EQUAL"></a>
<font color="#FF0000">  SUBROUTINE  EQUAL(S2,S1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(IN)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CHECK_SNAKE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(S2%I==0) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL CRAP1("EQUAL 1 IN TPSA")</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(S1%I==0) CALL CRAP1("EQUAL 2")</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(S1%I,S2%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font color="#FF0000">  END SUBROUTINE EQUAL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DEQUAL"></a>
<font color="#FF0000">  SUBROUTINE  DEQUAL(R1,S2) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(IN)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), INTENT(INOUT)::R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CHECK_SNAKE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    R1=S2.SUB.'0'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font color="#FF0000">  END SUBROUTINE DEQUAL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="REQUAL"></a>
<font color="#FF0000">  SUBROUTINE  REQUAL(R1,S2) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(IN)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(SP), INTENT(INOUT)::R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CHECK_SNAKE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    R1=S2.SUB.'0'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE REQUAL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DAABSEQUAL"></a>
<font color="#37A50B">  FUNCTION  DAABSEQUAL(S2) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(IN)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) DAABSEQUAL</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DAABSEQUAL=ABS(S2.SUB.'0')</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DAABSEQUAL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DEQUALDACON"></a>
<font color="#FF0000">  SUBROUTINE  DEQUALDACON(S2,R1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), INTENT(IN)::R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(S2%I==0)  CALL CRAP1("DEQUALDACON 1")</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACON(S2%I,R1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font color="#FF0000">  END SUBROUTINE DEQUALDACON </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="EQUALDACON"></a>
<font color="#FF0000">  SUBROUTINE  EQUALDACON(S2,R1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(SP), INTENT(IN)::R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) R2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CHECK_SNAKE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(S2%I==0) CALL CRAP1("EQUALDACON 1")</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    R2=REAL(R1,KIND=DP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2=R2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font color="#FF0000">  END SUBROUTINE EQUALDACON </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="IEQUALDACON"></a>
<font color="#FF0000">  SUBROUTINE  IEQUALDACON(S2,R1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT(IN)::R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) R2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CHECK_SNAKE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(S2%I==0) CALL CRAP1("IEQUALDACON 1")</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    R2=REAL(R1,KIND=DP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2=R2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font color="#FF0000">  END SUBROUTINE IEQUALDACON </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DEXPT"></a>
<font color="#37A50B">  FUNCTION DEXPT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DEXPT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DEXPT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAFUN('EXP ',S1%I,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,DEXPT%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DEXPT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="FULL_ABST"></a>
<font color="#37A50B">  FUNCTION FULL_ABST( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) FULL_ABST</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAABS(S1%I,FULL_ABST)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION FULL_ABST </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DTANT"></a>
<font color="#37A50B">  FUNCTION DTANT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DTANT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DTANT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAFUN('SIN ',S1%I,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,DTANT%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAFUN('COS ',S1%I,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DADIV(DTANT%I,TEMP%I,DTANT%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DTANT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DATANHT"></a>
<font color="#37A50B">  FUNCTION DATANHT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DATANHT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DATANHT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DATANHT=LOG((1+S1)/SQRT(1-S1))/2.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DATANHT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DCOST"></a>
<font color="#37A50B">  FUNCTION DCOST( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DCOST</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DCOST)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAFUN('COS ',S1%I,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,DCOST%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DCOST </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DSINT"></a>
<font color="#37A50B">  FUNCTION DSINT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DSINT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DSINT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAFUN('SIN ',S1%I,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,DSINT%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DSINT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DSINHT"></a>
<font color="#37A50B">  FUNCTION DSINHT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DSINHT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DSINHT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAFUN('SINH',S1%I,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,DSINHT%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DSINHT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DCOSHT"></a>
<font color="#37A50B">  FUNCTION DCOSHT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DCOSHT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DCOSHT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAFUN('COSH',S1%I,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,DCOSHT%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DCOSHT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DTANHT"></a>
<font color="#37A50B">  FUNCTION DTANHT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DTANHT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DTANHT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DTANHT=SINH(S1)/COSH(S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DTANHT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DLOGT"></a>
<font color="#37A50B">  FUNCTION DLOGT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DLOGT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DLOGT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAFUN('LOG ',S1%I,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,DLOGT%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DLOGT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DSQRTT"></a>
<font color="#37A50B">  FUNCTION DSQRTT( S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DSQRTT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DSQRTT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAFUN('SQRT',S1%I,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,DSQRTT%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DSQRTT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="MUL"></a>
<font color="#37A50B">  FUNCTION MUL( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) MUL</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1, S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(MUL)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAMUL(S1%I,S2%I,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,MUL%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION MUL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                               
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="PBBRA"></a>
<font color="#37A50B">  FUNCTION PBBRA( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) PBBRA</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1, S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(PBBRA)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    PBBRA=0.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,ND</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       PBBRA=(S1.D.(2*I-1))*(S2.D.(2*I))-(S2.D.(2*I-1))*(S1.D.(2*I))+PBBRA</font> <br>                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION PBBRA </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="GETORDER"></a>
<font color="#37A50B">  FUNCTION GETORDER( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) GETORDER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(GETORDER)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL TAKE(S1%I,S2,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,GETORDER%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION GETORDER </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CUTORDER"></a>
<font color="#37A50B">  FUNCTION CUTORDER( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) CUTORDER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(CUTORDER)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DATRUNC(S1%I,S2,CUTORDER%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION CUTORDER </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DPUTCHAR"></a>
<font color="#37A50B">  FUNCTION DPUTCHAR( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DPUTCHAR</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CHARACTER(*)  , INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CHARACTER (LEN = LNV)  RESUL</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER J(LNV),I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DPUTCHAR)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    RESUL = TRIM(ADJUSTL (S2))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,LNV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       J(I)=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ND2PAR= LEN(TRIM(ADJUSTL (S2)))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,ND2PAR</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL  CHARINT(RESUL(I:I),J(I))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF(I>NV) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          IF(J(I)>0) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;             DPUTCHAR=0.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;             RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DPUTCHAR=0.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL POK(DPUTCHAR,J,S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DPUTCHAR </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DPUTINT"></a>
<font color="#37A50B">  FUNCTION DPUTINT( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DPUTINT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER  , INTENT (IN) ::  S2(:)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER J(LNV),I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DPUTINT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,LNV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       J(I)=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ND2PAR= SIZE(S2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,ND2PAR</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       J(I)=S2(I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,ND2PAR</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF(I>NV) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          IF(J(I)>0) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;             DPUTINT=0.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;             RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DPUTINT=0.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL POK(DPUTINT,J,S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DPUTINT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DPUTINT0"></a>
<font color="#37A50B">  FUNCTION DPUTINT0( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DPUTINT0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER  , INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER J(LNV)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DPUTINT0)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    J=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(S2>NV) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       DPUTINT0=S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DPUTINT0=0.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    J(S2)=1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL POK(DPUTINT0,J,S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DPUTINT0 </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="GETCHARND2S"></a>
<font color="#37A50B">  FUNCTION GETCHARND2S( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) GETCHARND2S</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CHARACTER(*)  , INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(GETCHARND2S)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETCHARND2S=S1.PAR.S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL  SHIFTDA(GETCHARND2S,GETCHARND2S, LEN(TRIM(ADJUSTR (S2) )))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION GETCHARND2S </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="GETINTND2S"></a>
<font color="#37A50B">  FUNCTION GETINTND2S( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) GETINTND2S</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER  , INTENT (IN) ::  S2(:)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(GETINTND2S)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETINTND2S=S1.PAR.S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL  SHIFTDA(GETINTND2S,GETINTND2S, SIZE(S2) )</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION GETINTND2S </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="GETINTK"></a>
<font color="#37A50B">  FUNCTION GETINTK( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) GETINTK</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER  , INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(GETINTK)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL  SHIFTDA(S1,GETINTK, S2 )</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION GETINTK </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="GETCHAR"></a>
<font color="#37A50B">  FUNCTION GETCHAR( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) GETCHAR,R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CHARACTER(*)  , INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CHARACTER (LEN = LNV)  RESUL</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER J(LNV),I,C</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    RESUL = S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CONTEXT(RESUL)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,LNV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       J(I)=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ND2PAR= LEN_TRIM(RESUL)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,ND2PAR</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL  CHARINT(RESUL(I:I),J(I))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;C=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=C_%NV+1,LNV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       C=J(I)+C</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;IF(C>0) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;R1=0.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ELSE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAPEK(S1%I,J,R1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETCHAR=R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION GETCHAR </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="GETINT"></a>
<font color="#37A50B">  FUNCTION GETINT( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) GETINT,R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER , INTENT (IN) ::  S2(:)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER J(LNV),I,C</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,LNV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       J(I)=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ND2PAR= SIZE(S2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,ND2PAR</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       J(I)=S2(I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    C=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=C_%NV+1,LNV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       C=J(I)+C</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;IF(C>0) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;R1=0.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ELSE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAPEK(S1%I,J,R1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETINT=R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION GETINT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="GETDIFF"></a>
<font color="#37A50B">  FUNCTION GETDIFF( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) GETDIFF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(GETDIFF)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DADER(S2,S1%I,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,GETDIFF%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION GETDIFF </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="GETINTEGRATE"></a>
<font color="#37A50B">  FUNCTION GETINTEGRATE( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) GETINTEGRATE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER,N,I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE(TAYLOR) T,X</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) VALUE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, ALLOCATABLE :: JC(:)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ALLOCATE(JC(C_%NV))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    JC=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(GETINTEGRATE)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(T,X)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    T=S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    X=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL TAYLOR_CYCLE(T,SIZE=N)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,N</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL TAYLOR_CYCLE(T,II=I,VALUE=VALUE,J=JC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;         X=((VALUE/(JC(S2)+1)).MONO.JC)*(1.0_DP.MONO.S2)+X</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETINTEGRATE=X</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(T,X)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DEALLOCATE(JC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION GETINTEGRATE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="GETDATRA"></a>
<font color="#37A50B">  FUNCTION GETDATRA( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) GETDATRA</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(GETDATRA)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DATRA(S2,S1%I,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,GETDATRA%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION GETDATRA </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="POW"></a>
<font color="#37A50B">  FUNCTION POW( S1, R2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) POW</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) :: R2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I,R22</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(POW)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACON(TEMP%I,1.0_DP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    R22=IABS(R2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,R22</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL DAMUL(TEMP%I,S1%I,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(R2.LT.0) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL DADIC(TEMP%I,1.0_DP,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,POW%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION POW </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                               
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="POWR8"></a>
<font color="#37A50B">  FUNCTION POWR8( S1, R2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) POWR8</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), INTENT (IN) :: R2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(POWR8)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAFUN('LOG ',S1%I,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACMU(TEMP%I,R2,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAFUN('EXP ',TEMP%I,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,POWR8%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION POWR8 </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="POWR"></a>
<font color="#37A50B">  FUNCTION POWR( S1, R2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) POWR</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(SP), INTENT (IN) :: R2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(POWR)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAFUN('LOG ',S1%I,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACMU(TEMP%I,REAL(R2,KIND=DP),TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAFUN('EXP ',TEMP%I,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,POWR%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION POWR </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                              
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DMULSC"></a>
<font color="#37A50B">  FUNCTION DMULSC( S1, SC ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DMULSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DMULSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACMU(S1%I,SC,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,DMULSC%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DMULSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="MULSC"></a>
<font color="#37A50B">  FUNCTION MULSC( S1, SC ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) MULSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(SP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(MULSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACMU(S1%I,REAL(SC,KIND=DP),TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,MULSC%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION MULSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="IMULSC"></a>
<font color="#37A50B">  FUNCTION IMULSC( S1, SC ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) IMULSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(IMULSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACMU(S1%I,REAL(SC,KIND=DP),TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,IMULSC%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION IMULSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DSCMUL"></a>
<font color="#37A50B">  FUNCTION DSCMUL( SC,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DSCMUL</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DSCMUL)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACMU(S1%I,SC,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,DSCMUL%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DSCMUL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SCMUL"></a>
<font color="#37A50B">  FUNCTION SCMUL( SC,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) SCMUL</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(SP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(SCMUL)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACMU(S1%I,REAL(SC,KIND=DP),TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,SCMUL%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION SCMUL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ISCMUL"></a>
<font color="#37A50B">  FUNCTION ISCMUL( SC,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) ISCMUL</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(ISCMUL)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACMU(S1%I,REAL(SC,KIND=DP),TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,ISCMUL%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION ISCMUL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DIV"></a>
<font color="#37A50B">  FUNCTION DIV( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DIV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1, S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DIV)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DADIV(S1%I,S2%I,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,DIV%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION DIV </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                               
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DSCDIV"></a>
<font color="#37A50B">  FUNCTION DSCDIV( SC,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DSCDIV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DSCDIV)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DADIC(S1%I,SC,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,DSCDIV%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DSCDIV </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SCDIV"></a>
<font color="#37A50B">  FUNCTION SCDIV( SC,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) SCDIV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(SP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(SCDIV)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DADIC(S1%I,REAL(SC,KIND=DP),TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,SCDIV%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION SCDIV </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ISCDIV"></a>
<font color="#37A50B">  FUNCTION ISCDIV( SC,S1 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) ISCDIV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(ISCDIV)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DADIC(S1%I,REAL(SC,KIND=DP),TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,ISCDIV%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font color="#37A50B">  END FUNCTION ISCDIV </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DDIVSC"></a>
<font color="#37A50B">  FUNCTION DDIVSC( S1, SC ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DDIVSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DDIVSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACDI(S1%I,SC,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,DDIVSC%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DDIVSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DIVSC"></a>
<font color="#37A50B">  FUNCTION DIVSC( S1, SC ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DIVSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(SP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DIVSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACDI(S1%I,REAL(SC,KIND=DP),TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,DIVSC%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DIVSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="IDIVSC"></a>
<font color="#37A50B">  FUNCTION IDIVSC( S1, SC ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) IDIVSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(IDIVSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACDI(S1%I,REAL(SC,KIND=DP),TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,IDIVSC%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION IDIVSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ADD"></a>
<font color="#37A50B">  FUNCTION ADD( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) ADD</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1, S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(ADD)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAADD(S1%I,S2%I,ADD%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION ADD </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                               
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DADDSC"></a>
<font color="#37A50B">  FUNCTION DADDSC( S1, SC ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DADDSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DADDSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACAD(S1%I,SC,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,DADDSC%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DADDSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ADDSC"></a>
<font color="#37A50B">  FUNCTION ADDSC( S1, SC ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) ADDSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(SP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(ADDSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACAD(S1%I,REAL(SC,KIND=DP),TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,ADDSC%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION ADDSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="IADDSC"></a>
<font color="#37A50B">  FUNCTION IADDSC( S1, SC ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) IADDSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(IADDSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACAD(S1%I,REAL(SC,KIND=DP),TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,IADDSC%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION IADDSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DSCADD"></a>
<font color="#37A50B">  FUNCTION DSCADD( SC,S1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DSCADD</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DSCADD)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACAD(S1%I,SC,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,DSCADD%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DSCADD </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SCADD"></a>
<font color="#37A50B">  FUNCTION SCADD( SC,S1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) SCADD</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(SP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(SCADD)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACAD(S1%I,REAL(SC,KIND=DP),TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,SCADD%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION SCADD </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ISCADD"></a>
<font color="#37A50B">  FUNCTION ISCADD( SC,S1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) ISCADD</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(ISCADD)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACAD(S1%I,REAL(SC,KIND=DP),TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,ISCADD%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION ISCADD </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SUBS"></a>
<font color="#37A50B">  FUNCTION SUBS( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) SUBS</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1, S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(SUBS)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DASUB(S1%I,S2%I,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,SUBS%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION SUBS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                              
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DSUBSC"></a>
<font color="#37A50B">  FUNCTION DSUBSC( S1, SC ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DSUBSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DSUBSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACSU(S1%I,SC,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,DSUBSC%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DSUBSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SUBSC"></a>
<font color="#37A50B">  FUNCTION SUBSC( S1, SC ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) SUBSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(SP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(SUBSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACSU(S1%I,REAL(SC,KIND=DP),TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,SUBSC%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION SUBSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ISUBSC"></a>
<font color="#37A50B">  FUNCTION ISUBSC( S1, SC ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) ISUBSC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(ISUBSC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACSU(S1%I,REAL(SC,KIND=DP),TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,ISUBSC%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION ISUBSC </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DSCSUB"></a>
<font color="#37A50B">  FUNCTION DSCSUB( SC,S1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) DSCSUB</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(DSCSUB)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DASUC(S1%I,SC,TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,DSCSUB%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION DSCSUB </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SCSUB"></a>
<font color="#37A50B">  FUNCTION SCSUB( SC,S1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) SCSUB</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(SP), INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(REAL_WARNING) CALL REAL_STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(SCSUB)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DASUC(S1%I,REAL(SC,KIND=DP),TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,SCSUB%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION SCSUB </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ISCSUB"></a>
<font color="#37A50B">  FUNCTION ISCSUB( SC,S1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) ISCSUB</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT (IN) :: SC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(ISCSUB)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DASUC(S1%I,REAL(SC,KIND=DP),TEMP%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACOP(TEMP%I,ISCSUB%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION ISCSUB </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="VARF"></a>
<font color="#37A50B">  FUNCTION VARF( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) VARF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER  , INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(VARF)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    VARF=S1 + (1.0_DP.MONO.S2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION VARF </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                              
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="VARF001"></a>
<font color="#37A50B">  FUNCTION VARF001( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) VARF001</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), INTENT (IN) :: S1(2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER  , INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(VARF001)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    VARF001=S1(1) + (S1(2).MONO.S2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION VARF001 </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SHIFT000"></a>
<font color="#FF0000">  SUBROUTINE  SHIFT000(S1,S2,S) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER,INTENT(IN)::S</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(IN)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(S2%I==0) CALL CRAP1("SHIFT000  1" )</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DASHIFT(S1%I,S2%I,S)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font color="#FF0000">  END SUBROUTINE SHIFT000 </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="PEK000"></a>
<font color="#FF0000">  SUBROUTINE  PEK000(S1,J,R1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER,INTENT(IN),DIMENSION(:)::J</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP),INTENT(INOUT)::R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(IN)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(S1%I==0) CALL CRAP1("PEK000  1" )</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAPEK(S1%I,J,R1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font color="#FF0000">  END SUBROUTINE PEK000 </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="POK000"></a>
<font color="#FF0000">  SUBROUTINE  POK000(S1,J,R1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER,INTENT(IN),DIMENSION(:)::J</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP),INTENT(IN)::R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(INOUT)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(CHECK_J(J)/=0) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(S1%I==0) CALL CRAP1("POK000 1" )</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAPOK(S1%I,J,R1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font color="#FF0000">  END SUBROUTINE POK000 </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="TAYLOR_RAN"></a>
<font color="#FF0000">  SUBROUTINE  TAYLOR_RAN(S1,R1,R2) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP),INTENT(IN)::R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP),INTENT(INOUT)::R2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(INOUT)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(S1%I==0) CALL CRAP1("TAYLOR_RAN  1" )</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DARAN(S1%I,R1,R2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font color="#FF0000">  END SUBROUTINE TAYLOR_RAN </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="INTD_TAYLOR"></a>
<font color="#FF0000">  SUBROUTINE  INTD_TAYLOR(S1,S2,FACTOR) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(IN)::S1(:)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP),INTENT(IN):: FACTOR</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(S1(1)%I==0) CALL CRAP1("INTD_TAYLOR 1")</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL INTD(S1%I,S2%I,FACTOR)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font color="#FF0000">  END SUBROUTINE INTD_TAYLOR </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DIFD_TAYLOR"></a>
<font color="#FF0000">  SUBROUTINE  DIFD_TAYLOR(S2,S1,FACTOR) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(IN)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(INOUT)::S1(:)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP),INTENT(IN):: FACTOR</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DIFD(S2%I,S1%I,FACTOR)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font color="#FF0000">  END SUBROUTINE DIFD_TAYLOR </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CFU000"></a>
<font color="#FF0000">  SUBROUTINE  CFU000(S2,FUN,S1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(INOUT)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(IN)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) FUN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    EXTERNAL FUN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(S1%I==0) CALL CRAP1("CFU000  1" )</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACFU(S2%I,FUN,S1%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE CFU000 </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CFUR"></a>
<font color="#FF0000">  SUBROUTINE  CFUR(S2,FUN,S1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(INOUT)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(IN)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP) FUN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    EXTERNAL FUN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(S1%I==0) CALL CRAP1("CFUR  1" )</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACFUR(S2%I,FUN,S1%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE CFUR </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CFUI"></a>
<font color="#FF0000">  SUBROUTINE  CFUI(S2,FUN,S1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(INOUT)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(IN)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    COMPLEX(DP) FUN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    EXTERNAL FUN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(S1%I==0)CALL CRAP1("CFUI  1" )</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACFUI(S2%I,FUN,S1%I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE CFUI </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="TAYLOR_EPS"></a>
<font color="#FF0000">  SUBROUTINE  TAYLOR_EPS(R1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP),INTENT(INOUT)::R1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DAEPS(R1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE TAYLOR_EPS </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="GETCHARND2"></a>
<font color="#37A50B">  FUNCTION GETCHARND2( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) GETCHARND2,JUNK</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CHARACTER(*)  , INTENT (IN) ::  S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CHARACTER (LEN = LNV)  RESUL</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I,K</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NDEL=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(GETCHARND2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(JUNK)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    RESUL = TRIM(ADJUSTR (S2))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,LNV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       JFIL(I)=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ND2PAR= LEN(TRIM(ADJUSTR (S2)))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,ND2PAR</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL  CHARINT(RESUL(I:I),JFIL(I))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF(I>NV) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          IF(JFIL(I)>0) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;             GETCHARND2=0.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;             RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=ND2PAR+1,NV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF(JFIL(I)/=0) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          W_P=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          W_P%NC=1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          W_P%FC='(1((1X,A72),/))'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          W_P%C(1)=" ERROR IN GETCHAR FOR .PARA. "</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CFU(S1,FILTER,JUNK)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,ND2PAR</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       DO K=1,JFIL(I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          JUNK=JUNK.K.I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETCHARND2=JUNK</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(JUNK)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION GETCHARND2 </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="GETINTND2"></a>
<font color="#37A50B">  FUNCTION GETINTND2( S1, S2 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) GETINTND2,JUNK</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER , INTENT (IN) ::  S2(:)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I,K</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(GETINTND2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(JUNK)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,LNV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       JFIL(I)=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ND2PAR=SIZE(S2)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NDEL=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,ND2PAR</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       JFIL(I)=S2(I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF(I>NV) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          IF(JFIL(I)>0) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;             GETINTND2=0.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;             RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=ND2PAR+1,NV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF(JFIL(I)/=0) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          W_P=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          W_P%NC=1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          W_P%FC='(1((1X,A72),/))'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          W_P%C(1)=" ERROR IN GETINTND2 FOR .PARA. "</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CFU(S1,FILTER,JUNK)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,ND2PAR</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       DO K=1,JFIL(I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          JUNK=JUNK.K.I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETINTND2=JUNK</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(JUNK)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION GETINTND2 </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="GETINTND2T"></a>
<font color="#37A50B">  FUNCTION GETINTND2T( S1, S22 ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) GETINTND2T,JUNK</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT (IN) :: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE(SUB_TAYLOR), INTENT (IN) :: S22</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER S2(LNV)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOCALMASTER=MASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS(GETINTND2T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(JUNK)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,LNV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       JFILT(I)=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2=S22%J</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ND2PART=S22%MIN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ND2PARTT=S22%MAX</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NDEL=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=ND2PART,ND2PARTT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       JFILT(I)=S2(I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF(I>NV) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          IF(JFILT(I)>0) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;             GETINTND2T=0.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;             RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=ND2PARTT+1,NV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF(JFILT(I)/=0) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          W_P=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          W_P%NC=1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          W_P%FC='(1((1X,A72),/))'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          W_P%C(1)=" ERROR IN GETINTND2T FOR .PART_TAYLOR. "</font> <br>                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          STOP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CFU(S1,FILTER_PART,JUNK)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    GETINTND2T=JUNK</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(JUNK)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=LOCALMASTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END FUNCTION GETINTND2T </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="TAYLOR_CYCLE"></a>
<font color="#FF0000">  SUBROUTINE  TAYLOR_CYCLE(S1,SIZE,II,VALUE,J) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(IN)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER,OPTIONAL, INTENT(INOUT):: SIZE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER,OPTIONAL, INTENT(IN):: II</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER,OPTIONAL, INTENT(INOUT)::J(:)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP), OPTIONAL, INTENT(INOUT):: VALUE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER IPRESENT,ILLA</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) VALUE0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(J).AND.PRESENT(VALUE).AND.PRESENT(II)) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL DACYCLE(S1%I,II,VALUE,ILLA,J)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ELSEIF(PRESENT(SIZE)) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL DACYCLE(S1%I,IPRESENT,VALUE0,SIZE)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ELSE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       WRITE(6,*) "ERROR IN TAYLOR_CYCLE"</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       STOP 888</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE TAYLOR_CYCLE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CHECK_SNAKE"></a>
<font color="#FF0000">  SUBROUTINE CHECK_SNAKE() </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=MASTER+1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    SELECT CASE (MASTER)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CASE(1:NDUMT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF(IASS0USER(MASTER)>SCRATCHDA(MASTER)%N.OR.SCRATCHDA(MASTER)%N>NEWSCHEME_MAX) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          W_P=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          W_P%NC=1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          W_P%FC='(1((1X,A72),/))'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          W_P%FI='(3((1X,I4)))'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          W_P%C(1)= "IASS0USER(MASTER),SCRATCHDA(MASTER)%N,NEWSCHEME_MAX"</font> <br>                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          W_P=(/IASS0USER(MASTER),SCRATCHDA(MASTER)%N,NEWSCHEME_MAX/)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          CALL NDUM_WARNING_USER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IASS0USER(MASTER)=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CASE(NDUMT+1:)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       W_P=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       W_P%NC=1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       W_P=(/"SHOULD NOT BE HERE"/)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       W_P%FC='(1((1X,A72),/))'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    END SELECT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    MASTER=MASTER-1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font color="#FF0000">  END SUBROUTINE CHECK_SNAKE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CHARINT"></a>
<font color="#FF0000">  SUBROUTINE CHARINT(A,I) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CHARACTER(1) A</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    I=-1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='1') I=1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='2') I=2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='3') I=3</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='4') I=4</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='5') I=5</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='6') I=6</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='7') I=7</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='8') I=8</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='9') I=9</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='0') I=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(I==-1) NDEL=1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='A') I=1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='B') I=2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='C') I=3</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='D') I=4</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='E') I=5</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='F') I=6</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='G') I=7</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='H') I=8</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='I') I=9</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A==' ') I=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='O') I=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='A') I=1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='B') I=2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='C') I=3</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='D') I=4</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='E') I=5</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='F') I=6</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='G') I=7</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='H') I=8</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='I') I=9</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(A=='O') I=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE CHARINT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CHECK_J"></a>
<font color="#37A50B">  FUNCTION CHECK_J(J) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER CHECK_J</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER,INTENT(IN),DIMENSION(:)::J</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I,NO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.C_%STABLE_DA) RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CHECK_J=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NO=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,SIZE(J)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       NO=J(I)+NO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(NO>C_%NO) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CHECK_J=NO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=C_%NV+1,SIZE(J)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF(J(I)/=0) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          CHECK_J=-I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font color="#37A50B">  END FUNCTION CHECK_J </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="FILTER"></a>
<font color="#37A50B">  FUNCTION FILTER(J) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) FILTER</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER,DIMENSION(:)::J</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    FILTER=1.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,ND2PAR</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF(JFIL(I)/=J(I)) FILTER=0.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END  FUNCTION FILTER </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="FILTER_PART"></a>
<font color="#37A50B">  FUNCTION FILTER_PART(J) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) FILTER_PART</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER,DIMENSION(:)::J</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    FILTER_PART=1.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=ND2PART,ND2PARTT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF(JFILT(I)/=J(I)) FILTER_PART=0.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#37A50B">  END  FUNCTION FILTER_PART </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="PRI"></a>
<font color="#FF0000">  SUBROUTINE  PRI(S1,MFILE,DEPS) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER,INTENT(IN)::MFILE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP),OPTIONAL,INTENT(IN)::DEPS</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(IN)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) PREC,DEPST</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(DEPS)) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       PREC=-1.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       DEPST=DEPS</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL TAYLOR_EPS(PREC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL TAYLOR_EPS(DEPST)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRINT77) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL DAPRI77(S1%I,MFILE)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ELSE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL DAPRI(S1%I,MFILE)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(PRESENT(DEPS))  CALL TAYLOR_EPS(PREC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE PRI </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="REA"></a>
<font color="#FF0000">  SUBROUTINE  REA(S1,MFILE) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER,INTENT(IN)::MFILE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(IN)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(S1%I==0)CALL CRAP1("REA  1" )</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(READ77) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL DAREA77(S1%I,MFILE)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ELSE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL DAREA(S1%I,MFILE)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE REA </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="KILL_UNI"></a>
<font color="#FF0000">  SUBROUTINE  KILL_UNI(S2) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (UNIVERSAL_TAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DEALLOCATE(S2%N,S2%NV,S2%C,S2%J)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NULLIFY(S2%N,S2%NV,S2%C,S2%J)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE  KILL_UNI </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="NULL_UNI"></a>
<font color="#FF0000">  SUBROUTINE  NULL_UNI(S2,S1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (UNIVERSAL_TAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT(IN):: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(S1==0) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       NULLIFY(S2%N,S2%NV,S2%C,S2%J)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ELSEIF(S1==-1) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       DEALLOCATE(S2%N,S2%NV,S2%C,S2%J)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       NULLIFY(S2%N,S2%NV,S2%C,S2%J)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font color="#FF0000">  END SUBROUTINE NULL_UNI </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ALLOC_U"></a>
<font color="#FF0000">  SUBROUTINE  ALLOC_U(S2,N,NV) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (UNIVERSAL_TAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, INTENT(IN):: N,NV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ALLOCATE(S2%N,S2%NV)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(N==0) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ALLOCATE(S2%C(1),S2%J(1,NV));S2%C(1)=0.0_DP;S2%J(:,:)=0;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ELSE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ALLOCATE(S2%C(N),S2%J(N,NV))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2%N=N</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2%NV=NV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font color="#FF0000">  END SUBROUTINE ALLOC_U </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="FILL_UNI_R"></a>
<font color="#FF0000">  SUBROUTINE  FILL_UNI_R(S2,S1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (UNIVERSAL_TAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL (DP), INTENT(IN):: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER N,J(LNV)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(ASSOCIATED(S2%N)) S2=-1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC_U(S2,1,NV)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    J=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO N=1,S2%NV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       S2%J(1,N)=J(N)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2%C(1)=S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE FILL_UNI_R </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="FILL_UNI"></a>
<font color="#FF0000">  SUBROUTINE  FILL_UNI(S2,S1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (UNIVERSAL_TAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT(IN):: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER IPRESENT,K,N,I,ILLA</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) VALUE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, ALLOCATABLE :: J(:)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CHECK_SNAKE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(S1%I==0)  CALL CRAP1("FILL_N 1")</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(ASSOCIATED(S2%N)) S2=-1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IPRESENT=1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACYCLE(S1%I,IPRESENT,VALUE,N)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC_U(S2,N,C_%NV)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ALLOCATE(J(C_%NV))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,N</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL DACYCLE(S1%I,I,VALUE,ILLA,J)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       S2%C(I)=VALUE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       DO K=1,S2%NV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          S2%J(I,K)=J(K)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DEALLOCATE(J)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE FILL_UNI </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="REFILL_UNI"></a>
<font color="#FF0000">  SUBROUTINE  REFILL_UNI(S1,S2) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (UNIVERSAL_TAYLOR),INTENT(IN)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT(INOUT):: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I,K,J(LNV)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOGICAL(LP) DOIT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(S1%I==0)  CALL CRAP1("REFILL_N 1")</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S1=0.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.ASSOCIATED(S2%N)) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       W_P=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       W_P%NC=1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       W_P%FC='(1((1X,A72),/))'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       W_P%C(1)=" ERROR IN REFILL_N: UNIVERSAL_TAYLOR DOES NOT EXIST"</font> <br>                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    J=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,S2%N</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       DOIT=.TRUE.</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF(S2%NV>NV) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          K=NV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          DO WHILE(DOIT.AND.K<=S2%NV)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;             IF(S2%J(I,K)/=0) DOIT=.FALSE.</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;             K=K+1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF(DOIT) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          DO K=1,NV</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;             J(K)=S2%J(I,K)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          CALL POK(S1,J,S2%C(I))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE REFILL_UNI </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="PRINTUNITAYLOR"></a>
<font color="#FF0000">  SUBROUTINE PRINTUNITAYLOR(UT,IUNIT) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE(UNIVERSAL_TAYLOR) :: UT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER                :: IUNIT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER                :: I,II</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF (.NOT. ASSOCIATED(UT%N)) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       WRITE(IUNIT,'(A)') '    UNIVERSAL_TAYLOR IS EMPTY (NOT ASSOCIATED)'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       WRITE(6,'(A)') '    UNIVERSAL_TAYLOR IS EMPTY (NOT ASSOCIATED)'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       RETURN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    WRITE(IUNIT,'(/1X,A,I5,A,I5,A/1X,A/)') 'UNIV_TAYLOR   NO =',UT%N,', NV =',UT%NV,', INA = UNITA',&</font> <br>                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;         '*********************************************'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(UT%N /= 0) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       WRITE(IUNIT,'(A)') '    I  COEFFICIENT          ORDER   EXPONENTS'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ELSE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       WRITE(IUNIT,'(A)') '   ALL COMPONENTS 0.0_DP '</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I = 1,UT%N</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       WRITE(IUNIT,'(I6,2X,G21.14,I5,4X,18(2I2,1X))') I,UT%C(I),SUM(UT%J(I,:)),(UT%J(I,II),II=1,UT%NV)</font> <br>                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF( .NOT. PRINT77) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          WRITE(IUNIT,*)  UT%C(I)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    WRITE(IUNIT,'(A)') '                                      '</font> <br>                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE PRINTUNITAYLOR </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CRAP1"></a>
<font color="#FF0000">  SUBROUTINE CRAP1(STRING) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CHARACTER(*) STRING</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    W_P=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    W_P%NC=2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    W_P%FC='((1X,A72,/),(1X,A72))'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    W_P%C(1)= "ERROR IN :"</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    W_P%C(2)= STRING</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE CRAP1 </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="REAL_STOP"></a>
<font color="#FF0000">  SUBROUTINE REAL_STOP() </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I(1),J</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    W_P=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    W_P%NC=3</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    WRITE(6,*) " YOU ARE USING A KIND(1.0_DP) "</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    WRITE(6,*)" SET REAL_WARNING TO FALSE TO PERMIT THIS "</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    WRITE(6,*)" WRITE 1 TO CONTINUE OR -1 FOR A CRASH "</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL READ(J)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    I(J)=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL_WARNING=.FALSE.</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END   SUBROUTINE REAL_STOP </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="NDUM_WARNING_USER"></a>
<font color="#FF0000">  SUBROUTINE  NDUM_WARNING_USER() </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER IPAUSE,II(0:1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    W_P=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    W_P%NC=3</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    W_P%FC='(3((1X,A72),/))'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    W_P%C(1)=  " *****************************************************************"</font> <br>                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    W_P%C(2)=  " *  SHOULD NEVER BE HERE IN NEW LINKED LIST SCHEME               *"</font> <br>                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    W_P%C(3)=  " *****************************************************************"</font> <br>                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    W_P=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    W_P%NC=1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    W_P%FC='(1(1X,A72),/))'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    W_P%C(1)= " DO YOU WANT A CRASH? "</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL READ(IPAUSE)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    II(2000*IPAUSE)=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE  NDUM_WARNING_USER </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SET_UP"></a>
<font color="#FF0000">  SUBROUTINE SET_UP( L ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (DALEVEL) L</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL NULL_IT(L)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ALLOCATE(L%N);</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ALLOCATE(L%CLOSED);</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    L%CLOSED=.FALSE.</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    L%N=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font color="#FF0000">  END SUBROUTINE SET_UP </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DE_SET_UP"></a>
<font color="#FF0000">  SUBROUTINE DE_SET_UP( L ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (DALEVEL) L</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DEALLOCATE(L%CLOSED);</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DEALLOCATE(L%N);</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font color="#FF0000">  END SUBROUTINE DE_SET_UP </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="NULL_IT"></a>
<font color="#FF0000">  SUBROUTINE NULL_IT( L ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (DALEVEL), INTENT(INOUT) :: L</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NULLIFY(L%N )</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NULLIFY(L%CLOSED )</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NULLIFY(L%PRESENT )</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NULLIFY(L%END )</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NULLIFY(L%START )</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NULLIFY(L%START_GROUND )</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NULLIFY(L%END_GROUND )</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font color="#FF0000">  END SUBROUTINE NULL_IT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                         
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="LINE_L"></a>
<font color="#FF0000">  SUBROUTINE LINE_L(L,DONEIT) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (DALEVEL) L</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOGICAL(LP) DONEIT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DONEIT=.FALSE.</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(L%CLOSED)  THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF(ASSOCIATED(L%END%NEXT)) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          L%END%NEXT=>L%START_GROUND</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          DONEIT=.TRUE.</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF(ASSOCIATED(L%START%PREVIOUS)) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          L%START%PREVIOUS=>L%END_GROUND</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font color="#FF0000">  END SUBROUTINE LINE_L </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="RING_L"></a>
<font color="#FF0000">  SUBROUTINE RING_L(L,DOIT) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (DALEVEL) L</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOGICAL(LP) DOIT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(L%CLOSED.AND.DOIT)  THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF(.NOT.(ASSOCIATED(L%END%NEXT))) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          L%START_GROUND=>L%END%NEXT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          L%END%NEXT=>L%START</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF(.NOT.(ASSOCIATED(L%START%PREVIOUS))) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          L%END_GROUND=>L%START%PREVIOUS</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          L%START%PREVIOUS=>L%END</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font color="#FF0000">  END SUBROUTINE RING_L </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="APPEND_DA"></a>
<font color="#FF0000">  SUBROUTINE APPEND_DA( L ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (DASCRATCH), POINTER :: CURRENT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (DALEVEL), TARGET,INTENT(INOUT):: L</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOGICAL(LP) DONEIT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL LINE_L(L,DONEIT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    L%N=L%N+1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NULLIFY(CURRENT);ALLOCATE(CURRENT);</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC_DA(CURRENT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(L%N==1) CURRENT%NEXT=> L%START</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CURRENT % PREVIOUS => L % END</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(L%N>1)  THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       L % END % NEXT => CURRENT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    L % END => CURRENT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(L%N==1) L%START=> CURRENT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    L%PRESENT=>CURRENT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL RING_L(L,DONEIT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font color="#FF0000">  END SUBROUTINE APPEND_DA </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="INSERT_DA"></a>
<font color="#FF0000">  SUBROUTINE INSERT_DA( L ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOGICAL(LP) :: DONEITT=.TRUE.</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (DASCRATCH), POINTER :: CURRENT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (DALEVEL), TARGET,INTENT(INOUT):: L</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(L%N>1.AND.(.NOT.ASSOCIATED(L%PRESENT,L%END))) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       L%N=L%N+1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       NULLIFY(CURRENT);ALLOCATE(CURRENT);</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL ALLOC_DA(CURRENT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CURRENT % PREVIOUS => L % PRESENT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CURRENT % NEXT => L % PRESENT%NEXT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       L%PRESENT%NEXT=> CURRENT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CURRENT % NEXT%PREVIOUS => CURRENT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       L%PRESENT=>CURRENT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ELSE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL APPEND_DA( L )</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF(L%N==1) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          L%CLOSED=.TRUE.</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          CALL RING_L(L,DONEITT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font color="#FF0000">  END SUBROUTINE INSERT_DA </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ALLOC_DA"></a>
<font color="#FF0000">  SUBROUTINE ALLOC_DA( C ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE(DASCRATCH),POINTER:: C</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ALLOCATE(C%T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(C%T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NULLIFY(C%NEXT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NULLIFY(C%PREVIOUS)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE ALLOC_DA </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="KILL_DALEVEL"></a>
<font color="#FF0000">  SUBROUTINE KILL_DALEVEL( L ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (DASCRATCH), POINTER :: CURRENT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (DALEVEL) L</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    LOGICAL(LP) DONEIT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL LINE_L(L,DONEIT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    NULLIFY(CURRENT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CURRENT => L % END</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO WHILE (ASSOCIATED(L % END))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       L % END => CURRENT % PREVIOUS</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL DEALLOC_DASCRATCH(CURRENT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CURRENT => L % END</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       L%N=L%N-1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    END DO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DE_SET_UP(L)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font color="#FF0000">  END SUBROUTINE KILL_DALEVEL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DEALLOC_DASCRATCH"></a>
<font color="#FF0000">  SUBROUTINE DEALLOC_DASCRATCH( C ) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE(DASCRATCH),POINTER :: C</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(ASSOCIATED(C)) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL KILL(C%T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF(ASSOCIATED(C%T)) DEALLOCATE(C%T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       DEALLOCATE(C);</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font color="#FF0000">  END SUBROUTINE DEALLOC_DASCRATCH </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="SET_UP_LEVEL"></a>
<font color="#FF0000">  SUBROUTINE SET_UP_LEVEL() </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,NDUMT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL SET_UP(SCRATCHDA(I))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END   SUBROUTINE SET_UP_LEVEL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="REPORT_LEVEL"></a>
<font color="#FF0000">  SUBROUTINE REPORT_LEVEL() </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(ASSOCIATED(SCRATCHDA(1)%N)) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       DO I=1,NDUMT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          W_P=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          W_P%NC=1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          W_P%FC='(1((1X,A72)))'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          WRITE(6,'(A6,1X,I4,A5,1X,I4,1X,A7)') "LEVEL ",I, " HAS ",SCRATCHDA(I)%N, "TAYLORS"</font> <br>                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font color="#FF0000">  END   SUBROUTINE REPORT_LEVEL </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ASSIGN"></a>
<font color="#FF0000">  SUBROUTINE ASSIGN() </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,NDUMT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IASSDOLUSER(I)=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IASS0USER(I)=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ETALL1(DUMMY)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL SET_UP_LEVEL</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font color="#FF0000">  END SUBROUTINE ASSIGN </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="DEASSIGN"></a>
<font color="#FF0000">  SUBROUTINE DEASSIGN() </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,NDUMT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IASSDOLUSER(I)=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IASS0USER(I)=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DADAL1(DUMMY)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(TEMP)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,NDUMT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL KILL_DALEVEL(SCRATCHDA(I))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font color="#FF0000">  END SUBROUTINE DEASSIGN </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                        
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ASSTAYLOR"></a>
<font color="#FF0000">  SUBROUTINE ASSTAYLOR(S1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    SELECT CASE(MASTER)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CASE(0:NDUMT-1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       MASTER=MASTER+1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CASE(NDUMT)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       WRITE(6,*) " CANNOT INDENT ANYMORE ",NDUMT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       W_P=0</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       W_P%NC=1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       W_P=(/" CANNOT INDENT ANYMORE "/)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       W_P%FC='(1((1X,A72),/))'</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       MASTER=SQRT(-DBLE(MASTER))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    END SELECT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ASS0(S1)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE ASSTAYLOR </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                       
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="ASS0"></a>
<font color="#FF0000">  SUBROUTINE ASS0(S1) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER IPAUSE, MYPAUSE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(MASTER>NDUMT.OR.MASTER==0) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       WRITE(6,*) "MORE SCRATCH LEVEL NEEDED ",MASTER,NDUMT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IPAUSE=MYPAUSE(123)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       WRITE(6,*) 1/SQRT(-DBLE(1000+MASTER))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       STOP 123</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(.NOT.NO_NDUM_CHECK) IASS0USER(MASTER)=IASS0USER(MASTER)+1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IF(IASS0USER(MASTER)>SCRATCHDA(MASTER)%N) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL INSERT_DA( SCRATCHDA(MASTER) )</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ELSE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       SCRATCHDA(MASTER)%PRESENT=>SCRATCHDA(MASTER)%PRESENT%NEXT</font> <br>                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S1%I=SCRATCHDA(MASTER)%PRESENT%T%I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE ASS0 </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CLEAN_TAYLOR"></a>
<font color="#FF0000">  SUBROUTINE  CLEAN_TAYLOR(S1,S2,PREC) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR), INTENT(INOUT):: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) PREC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER IPRESENT,K,N,I,ILLA</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) VALUE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER, ALLOCATABLE :: J(:)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (TAYLOR) T</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                        
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL ALLOC(T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    T=0.0_DP</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IPRESENT=1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL DACYCLE(S1%I,IPRESENT,VALUE,N)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ALLOCATE(J(C_%NV))</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,N</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL DACYCLE(S1%I,I,VALUE,ILLA,J)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       IF(ABS(VALUE)>PREC) THEN</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          T=T+(VALUE.MONO.J)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       ENDIF</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    S2=T</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DEALLOCATE(J)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL KILL(T)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE CLEAN_TAYLOR </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                    
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CLEAN_PBFIELD"></a>
<font color="#FF0000">  SUBROUTINE  CLEAN_PBFIELD(S1,S2,PREC) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (PBFIELD),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (PBFIELD), INTENT(INOUT):: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) PREC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CLEAN_TAYLOR(S1%H,S2%H,PREC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE CLEAN_PBFIELD </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                   
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name=""></a>
<font color="#FF0000">  SUBROUTINE  CLEAN_PBRESONANCE (S1,S2,PREC) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (PBRESONANCE),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (PBRESONANCE), INTENT(INOUT):: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) PREC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CLEAN_PBFIELD(S1%COS,S2%COS,PREC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;   CALL CLEAN_PBFIELD(S1%SIN,S2%SIN,PREC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE CLEAN_PBRESONANCE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                               
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CLEAN_DAMAP"></a>
<font color="#FF0000">  SUBROUTINE  CLEAN_DAMAP(S1,S2,PREC) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (DAMAP),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (DAMAP), INTENT(INOUT):: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) PREC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,C_%ND2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL CLEAN_TAYLOR(S1%V(I),S2%V(I),PREC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE CLEAN_DAMAP </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                     
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CLEAN_VECFIELD"></a>
<font color="#FF0000">  SUBROUTINE  CLEAN_VECFIELD(S1,S2,PREC) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                         
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (VECFIELD),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (VECFIELD), INTENT(INOUT):: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) PREC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,C_%ND2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL CLEAN_TAYLOR(S1%V(I),S2%V(I),PREC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE CLEAN_VECFIELD </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CLEAN_VECRESONANCE"></a>
<font color="#FF0000">  SUBROUTINE  CLEAN_VECRESONANCE(S1,S2,PREC) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                     
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (VECRESONANCE),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (VECRESONANCE), INTENT(INOUT):: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) PREC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL CLEAN_VECFIELD(S1%COS,S2%COS,PREC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL CLEAN_VECFIELD(S1%SIN,S2%SIN,PREC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE CLEAN_VECRESONANCE </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CLEAN_ONELIEEXPONENT"></a>
<font color="#FF0000">  SUBROUTINE  CLEAN_ONELIEEXPONENT(S1,S2,PREC) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                   
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (ONELIEEXPONENT),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (ONELIEEXPONENT), INTENT(INOUT):: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) PREC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL CLEAN_VECFIELD(S1%VECTOR,S2%VECTOR,PREC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                       
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL CLEAN_PBFIELD(S1%PB,S2%PB,PREC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE CLEAN_ONELIEEXPONENT </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CLEAN_COMPLEXTAYLOR"></a>
<font color="#FF0000">  SUBROUTINE  CLEAN_COMPLEXTAYLOR(S1,S2,PREC) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                    
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                 
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (COMPLEXTAYLOR), INTENT(INOUT):: S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                               
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) PREC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CLEAN_TAYLOR(S1%R,S1%R,PREC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    CALL CLEAN_TAYLOR(S1%I,S1%I,PREC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                      
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE CLEAN_COMPLEXTAYLOR </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
 <a name="CLEAN_GMAP"></a>
<font color="#FF0000">  SUBROUTINE  CLEAN_GMAP(S1,S2,PREC) </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    IMPLICIT NONE</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (GMAP),INTENT(INOUT)::S1</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    TYPE (GMAP),INTENT(INOUT)::S2</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    REAL(DP) PREC</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                          
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    INTEGER I</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                              
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    DO I=1,S1%N</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                            
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;       CALL CLEAN_TAYLOR(S1%V(I),S2%V(I),PREC)</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                             
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    ENDDO</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                  
<font size= -1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                           
<font color="#FF0000">  END SUBROUTINE CLEAN_GMAP </font> <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                      
<hr color="#CC0000" size="10" align="left" noshade>                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
END MODULE  TPSA <br>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               
 </body>
 </html>
